home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / vol7n16.arc / SENDCODE.COM < prev    next >
Encoding:
Text File  |  1988-08-16  |  457 b   |  37 lines
  1. N SENDCODE.COM
  2. A
  3. MOV     BX,81
  4. MOV     CL,04
  5. XOR     DL,DL
  6. MOV     AL,[BX]
  7. CMP     AL,0D
  8. JE      0138
  9. CMP     AL,30
  10. JB      0135
  11. CMP     AL,39
  12. JBE     0121
  13. AND     AL,DF
  14. CMP     AL,41
  15. JB      0135
  16. CMP     AL,46
  17. JA      0135
  18. SUB     AL,07
  19. SUB     AL,30
  20. ROL     AL,CL
  21. ADD     DL,AL
  22. CMP     CL,00
  23. JNE     132
  24. MOV     AH,02
  25. INT     21
  26. XOR     DL,DL
  27. XOR     CL,04
  28. INC     BX
  29. JMP     107
  30. MOV     AX,4C00
  31. INT     21
  32.  
  33. RCX
  34. 3D
  35. W
  36. Q
  37.